home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d15 / maximo_1.arc / TXT.ARC / WWSMALL.TXT < prev   
Text File  |  1991-08-20  |  2KB  |  135 lines
  1. ;------------------------------------------------------
  2. ;
  3. ;  WORLDWIDE -- globe animation (c) 1990 Copyright Chris Butler
  4. ;            -- revised  1/15/91 for rev 1.02
  5. ;            
  6. ;        pic buffer 4 temp use
  7. ;        clp buffer 1 temp use
  8.  
  9. set allpsdi off
  10. goto top
  11. all:
  12. set allpsdi on
  13. top:
  14.  
  15.  
  16. video m
  17. set numboffices 25    ;
  18.  
  19. pload worldmap 4 
  20. pfade 5 4
  21. palette 4
  22. pfree 4
  23.  
  24. databegin offices    ; choose OFFICES datablock
  25.  
  26. ; show all offices
  27. ; display l to r in longitudinal order
  28.  
  29. mark @numboffices        
  30. set x  @
  31. set y  @ 
  32.  
  33. color 12
  34. rect @x,@y @x+4,@y+4
  35. color 0
  36. line @x,@y @x+4,@y+4
  37. line @x,@y+4 @x+4,@y
  38. noise 100 200 10
  39. waitkey 20
  40. loop  
  41. waitkey 150
  42.  
  43. ; now roll on "where u need us to be" clipping
  44.  
  45. cload whereund.clp 1 1 0
  46. cfade 1 40,30  1 200 50
  47. cfree 1
  48.  
  49. ; FOLLOWING LINE ADDED TO REV 1.02 TO GET UNDER 1.2M LIMIT
  50. GOTO WWLABELX
  51.  
  52. ; show us + intl offices
  53.  
  54. pload worldgr4.pic 1 
  55. palette 1
  56. pfade 9 1 400
  57. pfree 1
  58. waitkey 100
  59.  
  60. cload usoffice.clp 1 1 0
  61. cfade 9 104,98 1 150 
  62. note 100 10 10
  63. waitkey
  64.  
  65. cload intla.clp 1 1 0
  66. cfade 9 56,40 1 150
  67. note 100 10 10
  68. waitkey
  69.  
  70. cload intlb.clp  1 1 0
  71. cfade 9 64,34 1 150
  72. note 100 10 10
  73. waitkey
  74.  
  75. cload intlc.clp  1 1 0
  76. cfade 9 56,27 1 150
  77. cfree 1
  78. note 100 10 10
  79. waitkey
  80.  
  81. WWLABELX:
  82.  
  83. if @allpsdi==on
  84.   link clients.txt all
  85.  else 
  86.   link master.txt entry_5
  87. endif
  88.  
  89. ; SUBR WORLDWIDE  
  90. ;
  91. ; la ger bos thai? spain calgary?
  92. ; malaysia? seattle italy dallas london dc sinagapore?
  93. ; sf vienna? toronto? sydney? chicago hongkong? 
  94. ; delhi? denver switz nyc tokyo france melbourne?
  95. ;
  96. offices:
  97.  
  98. 83,280
  99. 85,263
  100. 90,258
  101. 98,298
  102. 109,267
  103. 124,254
  104. 138,268
  105. 149,289
  106. 157,260
  107. 162,266
  108. 169,273 
  109. 293,269
  110. 295,296
  111. 303,282
  112. 313,282
  113. 314,294
  114. 321,273
  115. 332,288
  116. 440,236
  117. 478,194
  118. 480,220
  119. 514,194
  120. 518,270
  121. 543,261
  122. 563,132
  123.  
  124.  
  125. dataend   
  126.  
  127. ; offices array ordered by longitude
  128. longorder:
  129. 8  14 1 6 21 10 18 16 12 23  3    5 11
  130. 25 22 2 9 15 20  7  4 17 13 19 24 26
  131. dataend
  132.  
  133. ; SUBR WORLDWIDE
  134. ---------------------------------------video m
  135.